AP Statistics | RStudio Random Sampling & For Loops